home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / prowres / shared.dxr / 01505_ÉnÉìÉhÉâäeîN03.ls < prev    next >
Encoding:
Text File  |  1995-08-07  |  1.5 KB  |  65 lines
  1. global popmsw01, syearstr, nminipage, npopon, lmaxpagelist
  2.  
  3. on mlocchk
  4.   if (0 <= the mouseH) and (the mouseH <= 640) and ((280 <= the mouseV) and (the mouseV <= 439)) then
  5.     mminiphotset()
  6.     if (the type of sprite 11 = 1) or (the type of sprite 12 = 1) or (the type of sprite 13 = 1) or (the type of sprite 14 = 1) then
  7.       cursor(280)
  8.     else
  9.       cursor(-1)
  10.     end if
  11.     set the visible of sprite 2 to 0
  12.     mvisiblechk(5, 8, 0)
  13.     mvisiblechk(25, 36, 0)
  14.     mvisiblechk(38, 39, 0)
  15.     matjantodec()
  16.   else
  17.     mpstypez(11, 14, 0)
  18.     if the frameLabel = "PT" then
  19.     else
  20.       mpstypez(23, 24, 0)
  21.     end if
  22.     mrollovchk01()
  23.   end if
  24. end
  25.  
  26. on mrollovchk01
  27.   if chars(syearstr, 6, 8) = "_00" then
  28.     mrollovchk01_00()
  29.   else
  30.     if chars(syearstr, 6, 8) = "_YN" then
  31.       mrollovchk01_yn()
  32.     else
  33.       if chars(syearstr, 6, 8) = "_BW" then
  34.         mrollovchk01_bw()
  35.       else
  36.         if chars(syearstr, 6, 8) = "_FN" then
  37.           mrollovchk01_fn()
  38.         else
  39.           if chars(syearstr, 6, 8) = "_TM" then
  40.             mrollovchk01_tm()
  41.           else
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47. end
  48.  
  49. on msearchcnum
  50.   repeat with cn1 = 1 to 49
  51.     if (1 <= cn1) and (cn1 <= 9) then
  52.       set tmpstr to "0" & string(cn1)
  53.     else
  54.       set tmpstr to string(cn1)
  55.     end if
  56.     if 0 < the number of cast (chars(syearstr, 1, 5) & tmpstr & "S1") then
  57.       set tmpcnum to the number of cast (chars(syearstr, 1, 5) & tmpstr & "S1")
  58.       exit repeat
  59.       next repeat
  60.     end if
  61.     set tmpcnum to 1
  62.   end repeat
  63.   return tmpcnum
  64. end
  65.